unit UListaTurmas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, ExtCtrls;

type
  TfrmConTurmas = class(TForm)
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConTurmas: TfrmConTurmas;

implementation

{$R *.dfm}

procedure TfrmConTurmas.FormShow(Sender: TObject);
begin
  StringGrid1.Cells[0,0]:='Nome das turmas';
  StringGrid1.Cells[0,1]:='Turma AB001';
  StringGrid1.Cells[0,2]:='Turma AB002';
  StringGrid1.Cells[0,3]:='Turma AT003';
end;

procedure TfrmConTurmas.BitBtn4Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmConTurmas.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmConTurmas.Release;
  frmConTurmas := nil;
end;

end.
